home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Enciclopedia Del Perro
/
Enciclopedia Del Perro.iso
/
info31
/
simple.sc_
/
simple.sc
Wrap
Text File
|
1994-06-07
|
1KB
|
27 lines
<* Example SLANG script 11 Mar 94 language=slang
* This script is an example of a simple login session.
*
* Change "klingon" to a string the host you want to log into transmits
* when you make a connection. And change 0000 to your modem's phone number.
*
* Change foo-slip to your slip userid.
*>
(define,login,{ <**** routine to connect to net ***>
(send,ATDT0000(cr)) <* dial the phone *>
(define,data,(receive,30000,login:)) <* read from seial line *>
(has,data,klingon,{ <* is this correct host?*>
(send,foo-slip(cr)) <* yes: send userid *>
(define,data,(receive,30000,Password:)) <* look for "password" *>
(has,data,password,{ <* did we get prompt? *>
(conecho,off) <* turn off kebd echo *>
(send,(output,{password please? })(input)(cr)) <* yes *>
})
})
})
(login) <* perform the login *>
(output,(receive,2000)) <* output any residual messages *>
<* End of example *>